home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
misc
/
amag
/
12b92.lha
/
Tips & Tricks
/
Busy Pointer (C, BASIC)
/
Clockpointer.bas
< prev
next >
Wrap
BASIC Source File
|
1992-11-02
|
897b
|
45 lines
DECLARE FUNCTION AllocMem&() LIBRARY
LIBRARY "exec.library"
LIBRARY "intuition.library"
' Busy-Pointer setzen
GOSUB SetBusyPtr
FOR i=1 TO 100
LOCATE 2,2
PRINT "Bitte nicht stören!"
LOCATE 3,2
PRINT "Ich muß bis 100 zählen";i
NEXT i
PRINT " Hurra, es ist geschafft!"
' Alten Pointer zurueckholen
GOSUB ClearBusyPtr
LIBRARY CLOSE
END
SetBusyPtr:
ptr&=AllocMem&(78,65538&)
FOR i=0 TO 39
READ byte%
POKEW ptr&+2*i,byte%
NEXT i
SetPointer& WINDOW(7),ptr&,18,16,1,1
RETURN
ClearBusyPtr:
ClearPointer WINDOW(7)
FreeMem& buffer&,78
RETURN
' Image-DATA
DATA 0,0
DATA &H0000,&H0000,&H0400,&H07C0
DATA &H0000,&H07C0,&H0100,&H0380
DATA &H0000,&H07E0,&H07C0,&H1FF8
DATA &H1FF0,&H3FEC,&H3FF8,&H7FDE
DATA &H3FF8,&H7FBE,&H7FFC,&HFF7F
DATA &H7EFC,&HFFFF,&H7FFC,&HFFFF
DATA &H3FF8,&H7FFE,&H3FF8,&H7FFE
DATA &H1FF0,&H3FFC,&H07C0,&H1FF8
DATA &H0000,&H07E0,&H0000,&H0000
DATA &H0000,&H03F2
DATA 0,0